
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  function conv_date(date:integer)
  begin
   months = (/"","January","February","March","April","May","June","July", \
              "August","September","October","November","December"/)
   date_str  = new(1,string)
   date_str  = date
   chararr   = stringtocharacter(date_str)
   year      = charactertostring(chararr(0:3))
   imnth     = stringtointeger(charactertostring(chararr(4:5)))
   month     = months(imnth)
  return(month + " " + year)
  end

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  function datestr(idebug)
  begin
   acm = (/"01","02","03","04","05","06","07","08","09","10","11","12"/)
   ndm = (/ 31,  28,  31,  30,  31,  30,  31,  31,  30,  31,  30,  31 /)
   c31 = (/"01","02","03","04","05","06","07","08","09","10", \
           "11","12","13","14","15","16","17","18","19","20", \
           "21","22","23","24","25","26","27","28","29","30", \
           "31" /)
   c30 = (/"01","02","03","04","05","06","07","08","09","10", \
           "11","12","13","14","15","16","17","18","19","20", \
           "21","22","23","24","25","26","27","28","29","30" /)
   c29 = (/"01","02","03","04","05","06","07","08","09","10", \
           "11","12","13","14","15","16","17","18","19","20", \
           "21","22","23","24","25","26","27","28","29" /)
   c28 = (/"01","02","03","04","05","06","07","08","09","10", \
           "11","12","13","14","15","16","17","18","19","20", \
           "21","22","23","24","25","26","27","28" /)
  return(0) 
  end


